home *** CD-ROM | disk | FTP | other *** search
/ Science Fair / Science Fair.iso / pc / working / sort.dir / 00296.ls < prev    next >
Encoding:
Text File  |  1995-03-27  |  572 b   |  22 lines
  1. on mouseUp
  2.   global gPosX, gPosY, gSizeX, gSizeY, gStartMove, gCans
  3.   puppetSound("bing")
  4.   repeat with n = 1 to 8
  5.     set the locV of sprite (n + 30) to getAt(gPosX, n) + 100
  6.     set the locH of sprite (n + 30) to getAt(gPosY, n) + 110
  7.     set the width of sprite (n + 30) to getAt(gSizeX, n) * 6 / 7
  8.     set the height of sprite (n + 30) to getAt(gSizeY, n) * 6 / 7
  9.   end repeat
  10.   if gCans = 2 then
  11.     play frame "owl1"
  12.   else
  13.     if gCans = 3 then
  14.       play frame "owl2"
  15.     else
  16.       if gCans = 4 then
  17.         play frame "owl3"
  18.       end if
  19.     end if
  20.   end if
  21. end
  22.